home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / web_dev / files / ch-ching.hqx / Ch-Ching 2.6.7r7 / ats / includes / nav.lasso < prev    next >
Encoding:
Text File  |  1999-08-09  |  1.7 KB  |  28 lines
  1. <!-- begin category indexing -->
  2.  
  3. [var_set:'last_cat'='']
  4. [var_set:'catIndex'=0]
  5. [var_set:'subcatIndex'=0]
  6. [inline: database=(var:'dtb'), layout='www_categories', show]
  7.     [value_list:'fileCategoryList']
  8.         [var_set:'catIndex'=(Math_add:(var:'catIndex'), 1)]
  9.         [var_set:(String_Concatenate:'category', (var:'catIndex')) = (valuelistitem)]
  10.     [/value_list]
  11.     [value_list:'prodSubCatIndex']
  12.         [if:(var:'last_cat') != (string_getfield:field_number=1, delimiter='%', (valuelistitem))]
  13.             [var_set:'subcatIndex'=0]
  14.             [var_set:(String_Concatenate:(string_getfield:field_number=1, delimiter='%', (valuelistitem)), 'subcat', (Math_add:(var:'subcatIndex'), 1)) = (string_getfield:field_number=2, delimiter='%', (valuelistitem))]
  15.             [var_set:'last_cat'=(string_getfield:field_number=1, delimiter='%', (valuelistitem))]
  16.             [var_set:(String_Concatenate:(string_getfield:field_number=1, delimiter='%', (valuelistitem)), 'Index') = (Math_add:(var:(String_Concatenate:(string_getfield:field_number=1, delimiter='%', (valuelistitem)), 'Index')), 1)]
  17.             [var_set:'subcatIndex'=(Math_add:(var:'subcatIndex'), 1)]
  18.         [else]
  19.             [var_set:(String_Concatenate:(string_getfield:field_number=1, delimiter='%', (valuelistitem)), 'subcat', (Math_add:(var:'subcatIndex'), 1)) = (string_getfield:field_number=2, delimiter='%', (valuelistitem))]
  20.             [var_set:'subcatIndex'=(Math_add:(var:'subcatIndex'), 1)]
  21.             [var_set:(String_Concatenate:(string_getfield:field_number=1, delimiter='%', (valuelistitem)), 'Index') = (Math_add:(var:(String_Concatenate:(string_getfield:field_number=1, delimiter='%', (valuelistitem)), 'Index')), 1)]
  22.             [var_set:'last_cat'=(string_getfield:field_number=1, delimiter='%', (valuelistitem))]
  23.         [/if]        
  24.     [/value_list]
  25. [/inline]
  26.  
  27. <!-- end category indexing -->
  28.